Programming Languages Suite

home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual Foxpro 6.0 (Ent. Edition) / Vf6ent Extractor.EXE / TOOLS / XSOURCE / XSOURCE.ZIP / vfpsource / Browser / shctmenu.vct < prev next >
Unknown | 1998-05-01 | 10.4 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type
`100%`	file	data	default
`59%`	TrID	Form Memo MS Visual FoxPro 7	default (weak)
`40%`	TrID	MacBinary 1	default (weak)
`100%`	siegfried	x-fmt/342 Microsoft FoxPro Memo	default (weak)
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 29 96 00 00 00 01 | 00 00 00 00 00 00 00 00 |..).....|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 01 00 00 00 10 | 56 45 52 53 49 4f 4e 20 |........|VERSION |
|00000210| 3d 20 20 20 33 2e 30 30 | 00 00 00 01 00 00 00 0c |=   3.00|........|
|00000220| 73 68 6f 72 74 63 75 74 | 6d 65 6e 75 00 00 00 01 |shortcut|menu....|
|00000230| 00 00 00 06 50 69 78 65 | 6c 73 00 00 00 01 00 00 |....Pixe|ls......|
|00000240| 00 05 43 6c 61 73 73 00 | 00 00 01 00 00 00 01 31 |..Class.|.......1|
|00000250| 00 00 00 01 00 00 00 06 | 63 75 73 74 6f 6d 00 00 |........|custom..|
|00000260| 00 01 00 00 00 0c 73 68 | 6f 72 74 63 75 74 6d 65 |......sh|ortcutme|
|00000270| 6e 75 00 00 00 01 00 00 | 00 cf 63 6f 6e 73 65 6c |nu......|..consel|
|00000280| 65 63 74 69 6f 6e 0d 0a | 63 6d 65 6e 75 0d 0a 6f |ection..|cmenu..o|
|00000290| 68 6f 73 74 0d 0a 5e 61 | 6d 65 6e 75 5b 31 2c 30 |host..^a|menu[1,0|
|000002a0| 5d 20 0d 0a 2a 72 65 6c | 65 61 73 65 20 52 65 6c |] ..*rel|ease Rel|
|000002b0| 65 61 73 65 73 20 61 20 | 46 6f 72 6d 53 65 74 20 |eases a |FormSet |
|000002c0| 6f 72 20 46 6f 72 6d 20 | 66 72 6f 6d 20 6d 65 6d |or Form |from mem|
|000002d0| 6f 72 79 2e 0d 0a 2a 64 | 65 61 63 74 69 76 61 74 |ory...*d|eactivat|
|000002e0| 65 6d 65 6e 75 20 0d 0a | 2a 61 63 74 69 76 61 74 |emenu ..|*activat|
|000002f0| 65 6d 65 6e 75 20 0d 0a | 2a 63 6c 65 61 72 6d 65 |emenu ..|*clearme|
|00000300| 6e 75 20 0d 0a 2a 6e 65 | 77 6d 65 6e 75 20 0d 0a |nu ..*ne|wmenu ..|
|00000310| 2a 61 64 64 6d 65 6e 75 | 62 61 72 20 0d 0a 2a 61 |*addmenu|bar ..*a|
|00000320| 64 64 6d 65 6e 75 73 65 | 70 61 72 61 74 6f 72 20 |ddmenuse|parator |
|00000330| 0d 0a 2a 73 68 6f 77 6d | 65 6e 75 20 0d 0a 2a 73 |..*showm|enu ..*s|
|00000340| 65 74 6d 65 6e 75 20 0d | 0a 00 00 00 01 00 00 11 |etmenu .|........|
|00000350| 81 fe f2 ff 20 02 01 00 | 00 00 68 11 00 00 68 11 |.... ...|..h...h.|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000370| 00 00 00 00 00 00 00 00 | 1a 53 0a 00 00 00 25 00 |........|.S....%.|
|00000380| 00 00 5d 0e 00 00 00 00 | 00 00 8f 10 00 00 b8 00 |..].....|........|
|00000390| 00 00 1f 0f 00 00 00 00 | 00 00 00 00 00 00 fc 03 |........|........|
|000003a0| 00 03 00 55 00 00 0a 00 | 07 00 3c f7 00 00 fe 03 |...U....|..<.....|
|000003b0| 00 55 01 00 04 00 54 48 | 49 53 3f 00 12 00 25 fc |.U....TH|IS?...%.|
|000003c0| 43 f4 00 00 f7 01 00 a1 | fd f9 05 16 00 fe 04 00 |C.......|........|
|000003d0| 42 fe 04 00 1e fe 0e 00 | 75 c6 fc f4 00 00 f7 01 |B.......|u.......|
|000003e0| 00 03 fd fe 10 00 54 f4 | 00 00 f7 01 00 10 fc d9 |......T.|........|
|000003f0| 00 00 fd fe 04 00 b7 fe | 03 00 55 02 00 04 00 54 |........|..U....T|
|00000400| 48 49 53 05 00 43 4d 45 | 4e 55 ba 05 07 00 af f7 |HIS..CME|NU......|
|00000410| 00 00 fe 1f 00 ae f7 01 | 00 07 f7 02 00 07 f7 03 |........|........|
|00000420| 00 07 f7 04 00 07 f7 05 | 00 07 f7 06 00 07 f7 07 |........|........|
|00000430| 00 fe 1f 00 ae f7 08 00 | 07 f7 09 00 07 f7 0a 00 |........|........|
|00000440| 07 f7 0b 00 07 f7 0c 00 | 07 f7 0d 00 07 f7 0e 00 |........|........|
|00000450| fe 11 00 54 f7 06 00 10 | fc 43 43 c7 f8 01 00 44 |...T....|.CC....D|
|00000460| fd fe 11 00 54 f7 07 00 | 10 fc 43 43 c5 f8 01 00 |....T...|..CC....|
|00000470| 44 fd fe 1e 00 25 fc 43 | d9 0a 00 74 68 69 73 2e |D....%.C|...this.|
|00000480| 61 4d 65 6e 75 62 d9 01 | 00 43 0f fd f9 05 8c 00 |aMenub..|.C......|
|00000490| fe 07 00 42 fc 2d fd fe | 04 00 1e fe 15 00 54 f7 |...B.-..|......T.|
|000004a0| 08 00 10 fc 43 f4 0f 00 | e0 10 00 f8 01 01 cd fd |....C...|........|
|000004b0| fe 11 00 25 fc f7 08 00 | f8 01 00 10 fd f9 05 bd |...%....|........|
|000004c0| 00 fe 07 00 42 fc 2d fd | fe 04 00 1e fe 3e 00 25 |....B.-.|.....>.%|
|000004d0| fc f7 06 00 f8 01 00 0e | f0 13 00 43 d9 08 00 74 |........|...C...t|
|000004e0| 68 69 73 66 6f 72 6d 62 | d9 01 00 4f 14 09 f0 14 |hisformb|...O....|
|000004f0| 00 43 f4 11 00 f7 12 00 | 40 d9 07 00 74 6f 6f 6c |.C......|@...tool|
|00000500| 62 61 72 14 09 fd f9 05 | 20 01 fe 21 00 54 f7 06 |bar.....| ..!.T..|
|00000510| 00 10 fc 43 f4 11 00 f7 | 13 00 f8 01 03 10 f2 05 |...C....|........|
|00000520| 00 43 b4 f3 03 00 f8 01 | 00 36 fd fe 04 00 1e fe |.C......|.6......|
|00000530| 22 00 54 f7 09 00 10 fc | 43 43 f7 00 00 a1 f2 09 |".T.....|CC......|
|00000540| 00 43 f9 04 df 07 5d f3 | 05 00 43 f7 00 00 9b 36 |.C....].|..C....6|
|00000550| fd fe 10 00 54 f4 0f 00 | f7 14 00 10 fc f7 09 00 |....T...|........|
|00000560| fd fe 15 00 54 f7 01 00 | 10 fc 43 f4 0f 00 e0 10 |....T...|..C.....|
|00000570| 00 f8 01 02 cd fd fe 12 | 00 54 f7 02 00 10 fc f7 |........|.T......|
|00000580| 01 00 f8 01 00 11 03 fd | fe 0b 00 75 c6 fc f7 09 |........|...u....|
|00000590| 00 03 fd fe 05 00 0e d4 | fe 0f 00 25 fc 43 f7 00 |........|...%.C..|
|000005a0| 00 a1 fd f9 05 dc 01 fe | 19 00 73 c6 fc f7 09 00 |........|..s.....|
|000005b0| 03 fd 15 fc f7 06 00 fd | 07 fc f7 07 00 fd c8 57 |........|.......W|
|000005c0| fe 27 00 31 d0 c6 fc f7 | 09 00 03 fd fb 18 00 44 |.'.1....|.......D|
|000005d0| 45 41 43 54 49 56 41 54 | 45 20 4d 45 4e 55 20 28 |EACTIVAT|E MENU (|
|000005e0| 6c 63 4d 65 6e 75 29 fe | 04 00 1e fe 0d 00 54 f7 |lcMenu).|......T.|
|000005f0| 04 00 10 fc f8 01 00 fd | fe 17 00 84 f7 05 00 10 |........|........|
|00000600| fc f8 01 01 fd 28 fc f7 | 08 00 fd f9 05 4c 05 fe |.....(..|.....L..|
|00000610| 2e 00 54 f7 0b 00 10 fc | 43 f7 02 00 f2 11 00 43 |..T.....|C......C|
|00000620| 00 f7 05 00 f8 01 01 f4 | 0f 00 f6 10 00 f3 0b 00 |........|........|
|00000630| 43 00 f7 05 00 f4 0f 00 | f6 10 00 36 fd fe 4e 00 |C.......|...6..N.|
|00000640| 25 fc 43 d9 0a 00 6c 63 | 4d 65 6e 75 49 74 65 6d |%.C...lc|MenuItem|
|00000650| 62 d9 01 00 43 0f f1 06 | 00 43 f7 0b 00 a1 0b f1 |b...C...|.C......|
|00000660| 24 00 f7 05 00 f8 01 01 | 10 f1 08 00 f7 05 00 f7 |$.......|........|
|00000670| 08 00 10 0b 03 f0 0c 00 | 43 f7 0b 00 9b d9 02 00 |........|C.......|
|00000680| 5c 2d 14 09 03 0b fd f9 | 05 95 02 fe 11 00 54 f7 |\-......|......T.|
|00000690| 04 00 10 fc f7 04 00 f8 | 01 01 06 fd fe 04 00 2e |........|........|
|000006a0| fe 04 00 1e fe 11 00 54 | f7 03 00 10 fc f7 05 00 |.......T|........|
|000006b0| f7 04 00 08 fd fe 0b 00 | 54 f7 0d 00 10 fc 2d fd |........|T.....-.|
|000006c0| fe 17 00 25 fc 43 f7 0b | 00 f8 01 01 3d d9 01 00 |...%.C..|....=...|
|000006d0| 5e 14 fd f9 05 e9 02 fe | 12 00 54 f7 0b 00 10 fc |^.......|..T.....|
|000006e0| 43 f7 0b 00 f8 01 02 5c | fd fe 0b 00 54 f7 0d 00 |C......\|....T...|
|000006f0| 10 fc 61 fd fe 04 00 1e | fe 26 00 25 fc f7 01 00 |..a.....|.&.%....|
|00000700| f8 01 03 12 f0 12 00 43 | 43 00 f7 05 00 f8 01 03 |.......C|C.......|
|00000710| f4 0f 00 f6 10 00 a1 0a | 09 fd f9 05 2d 03 fe 1a |........|....-...|
|00000720| 00 54 f7 0e 00 10 fc 43 | 43 00 f7 05 00 f8 01 03 |.T.....C|C.......|
|00000730| f4 0f 00 f6 10 00 9b fd | fe 08 00 1b f9 05 42 03 |........|......B.|
|00000740| fe 0d 00 54 f7 0e 00 10 | fc d9 00 00 fd fe 04 00 |...T....|........|
|00000750| 1e fe 0f 00 25 fc 43 f7 | 0e 00 a1 fd f9 05 6d 03 |....%.C.|......m.|
|00000760| fe 18 00 73 06 fc f7 03 | 00 fd c3 fc f7 09 00 03 |...s....|........|
|00000770| fd 22 fc f7 0b 00 03 fd | fe 08 00 1b f9 05 b4 03 |."......|........|
|00000780| fe 3f 00 01 44 45 46 49 | 4e 45 20 42 41 52 20 6c |.?..DEFI|NE BAR l|
|00000790| 6e 42 61 72 20 4f 46 20 | 28 6c 63 4d 65 6e 75 29 |nBar OF |(lcMenu)|
|000007a0| 20 50 52 4f 4d 50 54 20 | 28 6c 63 4d 65 6e 75 49 | PROMPT |(lcMenuI|
|000007b0| 74 65 6d 29 20 26 6c 63 | 43 6c 61 75 73 65 73 0a |tem) &lc|Clauses.|
|000007c0| 04 00 1e fe 0d 00 25 fc | f7 0d 00 fd f9 05 dd 03 |......%.|........|
|000007d0| fe 18 00 47 3a c3 06 fc | f7 03 00 03 fd c3 fc f7 |...G:...|........|
|000007e0| 09 00 03 fd 28 fc 61 fd | fe 04 00 1e fe 0e 00 25 |....(.a.|.......%|
|000007f0| fc f7 02 00 0a fd f9 05 | f3 03 fe 04 00 2e fe 04 |........|........|
|00000800| 00 1e fe 18 00 54 f7 0c | 00 10 fc 43 00 f7 05 00 |.....T..|...C....|
|00000810| f8 01 02 f4 0f 00 f6 10 | 00 fd fe 2d 00 25 fc 43 |........|...-.%.C|
|00000820| d9 0f 00 6c 75 4d 65 6e | 75 53 65 6c 65 63 74 69 |...luMen|uSelecti|
|00000830| 6f 6e 62 d9 01 00 4f 14 | f0 07 00 43 f7 0c 00 d1 |onb...O.|...C....|
|00000840| 0a 09 fd f9 05 d8 04 fe | 10 00 54 f7 0a 00 10 fc |........|..T.....|
|00000850| 43 f9 04 df 07 5d fd fe | 0d 00 73 c6 fc f7 0a 00 |C....]..|..s.....|
|00000860| 03 fd c8 57 fe 28 00 31 | d0 c6 fc f7 0a 00 03 fd |...W.(.1|........|
|00000870| fb 19 00 44 45 41 43 54 | 49 56 41 54 45 20 4d 45 |...DEACT|IVATE ME|
|00000880| 4e 55 20 28 6c 63 4d 65 | 6e 75 32 29 fe 19 00 31 |NU (lcMe|nu2)...1|
|00000890| 06 fc f7 03 00 fd c3 fc | f7 09 00 03 fd bc c6 fc |........|........|
|000008a0| f7 0a 00 03 fd fe 12 00 | 25 fc 43 f4 0c 00 f7 15 |........|%.C.....|
|000008b0| 00 a1 fd f9 05 bf 04 fe | 13 00 54 f4 0c 00 f7 15 |........|..T.....|
|000008c0| 00 10 fc f4 0f 00 f7 15 | 00 fd fe 04 00 1e fe 11 |........|........|
|000008d0| 00 99 fc 43 00 f7 0a 00 | f4 0c 00 f6 16 00 fd fe |...C....|........|
|000008e0| 04 00 2e fe 04 00 1e fe | 0f 00 25 fc 43 f7 0c 00 |........|..%.C...|
|000008f0| a1 fd f9 05 fd 04 fe 12 | 00 54 f7 0c 00 10 fc 43 |........|.T.....C|
|00000900| f4 0f 00 f7 15 00 9b fd | fe 04 00 1e fe 10 00 25 |........|.......%|
|00000910| fc 43 f7 0c 00 a1 0a fd | f9 05 48 05 fe 37 00 01 |.C......|..H..7..|
|00000920| 4f 4e 20 53 45 4c 45 43 | 54 49 4f 4e 20 42 41 52 |ON SELEC|TION BAR|
|00000930| 20 6c 6e 42 61 72 20 4f | 46 20 28 6c 63 4d 65 6e | lnBar O|F (lcMen|
|00000940| 75 29 20 26 6c 75 4d 65 | 6e 75 53 65 6c 65 63 74 |u) &luMe|nuSelect|
|00000950| 69 6f 6e 0a 04 00 1e fe | 04 00 85 fe 1b 00 25 fc |ion.....|......%.|
|00000960| f7 04 00 f7 08 00 12 f1 | 07 00 43 f7 00 00 a1 0a |........|..C.....|
|00000970| 0b fd f9 05 6f 05 fe 04 | 00 42 fe 04 00 1e fe 0b |....o...|.B......|
|00000980| 00 74 c6 fc f7 09 00 03 | fd fe 13 00 25 fc 43 f4 |.t......|....%.C.|
|00000990| 0f 00 f7 14 00 a1 0a fd | f9 05 9f 05 fe 0e 00 75 |........|.......u|
|000009a0| c6 fc f4 0f 00 f7 14 00 | 03 fd fe 04 00 1e fe 10 |........|........|
|000009b0| 00 54 f4 0f 00 f7 14 00 | 10 fc d9 00 00 fd fe 04 |.T......|........|
|000009c0| 00 b7 fe 03 00 55 17 00 | 0c 00 54 43 50 41 52 45 |.....U..|..TCPARE|
|000009d0| 4e 54 4d 45 4e 55 0e 00 | 4c 4e 41 52 52 41 59 43 |NTMENU..|LNARRAYC|
|000009e0| 4f 4c 55 4d 4e 53 0c 00 | 4c 4c 4d 55 4c 54 49 41 |OLUMNS..|LLMULTIA|
|000009f0| 52 52 41 59 05 00 4c 4e | 42 41 52 0b 00 4c 4e 53 |RRAY..LN|BAR..LNS|
|00000a00| 4b 49 50 43 4f 55 4e 54 | 07 00 4c 4e 43 4f 55 4e |KIPCOUNT|..LNCOUN|
|00000a10| 54 06 00 4c 4e 4d 52 4f | 57 06 00 4c 4e 4d 43 4f |T..LNMRO|W..LNMCO|
|00000a20| 4c 0b 00 4c 4e 4d 45 4e | 55 43 4f 55 4e 54 06 00 |L..LNMEN|UCOUNT..|
|00000a30| 4c 43 4d 45 4e 55 07 00 | 4c 43 4d 45 4e 55 32 0a |LCMENU..|LCMENU2.|
|00000a40| 00 4c 43 4d 45 4e 55 49 | 54 45 4d 0f 00 4c 55 4d |.LCMENUI|TEM..LUM|
|00000a50| 45 4e 55 53 45 4c 45 43 | 54 49 4f 4e 09 00 4c 4c |ENUSELEC|TION..LL|
|00000a60| 53 45 54 4d 41 52 4b 09 | 00 4c 43 43 4c 41 55 53 |SETMARK.|.LCCLAUS|
|00000a70| 45 53 04 00 54 48 49 53 | 05 00 41 4d 45 4e 55 08 |ES..THIS|..AMENU.|
|00000a80| 00 54 48 49 53 46 4f 52 | 4d 09 00 42 41 53 45 43 |.THISFOR|M..BASEC|
|00000a90| 4c 41 53 53 0c 00 44 4f | 43 4b 50 4f 53 49 54 49 |LASS..DO|CKPOSITI|
|00000aa0| 4f 4e 05 00 43 4d 45 4e | 55 0c 00 43 4f 4e 53 45 |ON..CMEN|U..CONSE|
|00000ab0| 4c 45 43 54 49 4f 4e 0c | 00 41 43 54 49 56 41 54 |LECTION.|.ACTIVAT|
|00000ac0| 45 4d 45 4e 55 33 00 10 | 00 15 f4 00 00 f6 01 00 |EMENU3..|........|
|00000ad0| fc f8 01 01 fd 16 fe 10 | 00 54 f4 00 00 f7 01 00 |........|.T......|
|00000ae0| 10 fc d9 00 00 fd fe 10 | 00 54 f4 00 00 f7 02 00 |........|.T......|
|00000af0| 10 fc d9 00 00 fd fe 03 | 00 55 03 00 04 00 54 48 |........|.U....TH|
|00000b00| 49 53 05 00 41 4d 45 4e | 55 0c 00 43 4f 4e 53 45 |IS..AMEN|U..CONSE|
|00000b10| 4c 45 43 54 49 4f 4e 4b | 01 07 00 ae f7 00 00 fe |LECTIONK|........|
|00000b20| 1b 00 ae f7 01 00 07 f7 | 02 00 07 f7 03 00 07 f7 |........|........|
|00000b30| 04 00 07 f7 05 00 07 f7 | 06 00 fe 25 00 25 fc 43 |........|...%.%.C|
|00000b40| d9 08 00 74 6f 4f 62 6a | 65 63 74 62 d9 01 00 4f |...toObj|ectb...O|
|00000b50| 0f f1 06 00 43 f7 00 00 | d1 0b fd f9 05 54 00 fe |....C...|.....T..|
|00000b60| 0d 00 54 f7 00 00 10 fc | f7 07 00 fd fe 04 00 1e |..T.....|........|
|00000b70| fe 12 00 54 f7 02 00 10 | fc 43 f4 00 00 f7 08 00 |...T....|.C......|
|00000b80| 40 fd fe 12 00 54 f7 03 | 00 10 fc 43 f4 00 00 f7 |@....T..|...C....|
|00000b90| 09 00 40 fd fe 12 00 54 | f7 04 00 10 fc 43 f4 00 |..@....T|.....C..|
|00000ba0| 00 f7 0a 00 40 fd fe 0f | 00 25 fc 43 f7 03 00 a1 |....@...|.%.C....|
|00000bb0| fd f9 05 b6 00 fe 10 00 | 54 f7 01 00 10 fc 43 f7 |........|T.....C.|
|00000bc0| 04 00 ea 4e fd fe 09 00 | 42 fc f7 01 00 fd fe 04 |...N....|B.......|
|00000bd0| 00 1e fe 12 00 54 f7 05 | 00 10 fc 43 43 f9 04 df |.....T..|...CC...|
|00000be0| 07 5d 40 fd fe 21 00 54 | f7 06 00 10 fc 43 f7 03 |.]@..!.T|.....C..|
|00000bf0| 00 43 d9 08 00 43 4c 41 | 53 53 4c 49 42 76 b8 f8 |.C...CLA|SSLIBv..|
|00000c00| 01 00 10 03 fd fe 0d 00 | 25 fc f7 06 00 fd f9 05 |........|%.......|
|00000c10| 0e 01 fe 14 00 47 7e 28 | fc f7 03 00 03 fd 02 fc |.....G~(|........|
|00000c20| f7 05 00 03 fd 01 fe 04 | 00 1e fe 10 00 54 f7 01 |........|.....T..|
|00000c30| 00 10 fc 43 f7 02 00 ea | 4e fd fe 0d 00 25 fc f7 |...C....|N....%..|
|00000c40| 06 00 fd f9 05 3b 01 fe | 0c 00 3c 52 02 fc f7 05 |.....;..|..<R....|
|00000c50| 00 03 fd fe 04 00 1e fe | 09 00 42 fc f7 01 00 fd |........|..B.....|
|00000c60| fe 03 00 55 0b 00 08 00 | 54 4f 4f 42 4a 45 43 54 |...U....|TOOBJECT|
|00000c70| 0a 00 4f 4e 45 57 4f 42 | 4a 45 43 54 07 00 4c 43 |..ONEWOB|JECT..LC|
|00000c80| 43 4c 41 53 53 0e 00 4c | 43 43 4c 41 53 53 4c 49 |CLASS..L|CCLASSLI|
|00000c90| 42 52 41 52 59 0b 00 4c | 43 42 41 53 45 43 4c 41 |BRARY..L|CBASECLA|
|00000ca0| 53 53 07 00 4c 43 41 4c | 49 41 53 0c 00 4c 4c 41 |SS..LCAL|IAS..LLA|
|00000cb0| 44 44 4c 49 42 52 41 52 | 59 04 00 54 48 49 53 05 |DDLIBRAR|Y..THIS.|
|00000cc0| 00 43 4c 41 53 53 0c 00 | 43 4c 41 53 53 4c 49 42 |.CLASS..|CLASSLIB|
|00000cd0| 52 41 52 59 09 00 42 41 | 53 45 43 4c 41 53 53 62 |RARY..BA|SECLASSb|
|00000ce0| 03 1f 00 af f7 00 00 07 | f7 01 00 07 f7 02 00 07 |........|........|
|00000cf0| f7 03 00 07 f7 04 00 07 | f7 05 00 07 f7 06 00 fe |........|........|
|00000d00| 1f 00 ae f7 07 00 07 f7 | 08 00 07 f7 09 00 07 f7 |........|........|
|00000d10| 0a 00 07 f7 0b 00 07 f7 | 0c 00 07 f7 0d 00 fe 0f |........|........|
|00000d20| 00 25 fc 43 f7 00 00 a1 | fd f9 05 54 00 fe 07 00 |.%.C....|...T....|
|00000d30| 42 fc 2d fd fe 04 00 1e | fe 26 00 25 fc 43 d9 08 |B.-.....|.&.%.C..|
|00000d40| 00 74 63 50 72 6f 6d 70 | 74 62 d9 01 00 4f 14 f0 |.tcPromp|tb...O..|
|00000d50| 07 00 43 f7 00 00 d1 0a | 09 fd f9 05 f4 00 fe 0d |..C.....|........|
|00000d60| 00 54 f7 0d 00 10 fc f7 | 00 00 fd fe 0b 00 54 f7 |.T......|......T.|
|00000d70| 00 00 10 fc e4 fd fe 1f | 00 84 f7 0c 00 10 fc f8 |........|........|
|00000d80| 01 01 fd 28 fc 43 f4 0d | 00 e0 0e 00 f8 01 01 cd |...(.C..|........|
|00000d90| fd f9 05 ec 00 fe 37 00 | 99 fc 43 43 00 f7 0c 00 |......7.|..CC....|
|00000da0| f8 01 01 f4 0d 00 f6 0e | 00 43 00 f7 0c 00 f8 01 |........|.C......|
|00000db0| 02 f4 0d 00 f6 0e 00 43 | 00 f7 0c 00 f8 01 03 f4 |.......C|........|
|00000dc0| 0d 00 f6 0e 00 f4 0f 00 | f6 10 00 fd fe 04 00 85 |........|........|
|00000dd0| fe 04 00 42 fe 04 00 1e | fe 0d 00 54 f7 07 00 10 |...B....|...T....|
|00000de0| fc f7 00 00 fd fe 1d 00 | 54 f7 08 00 10 fc 43 43 |........|T.....CC|
|00000df0| f7 02 00 a1 f2 06 00 d9 | 00 00 f3 03 00 f7 02 00 |........|........|
|00000e00| 36 fd fe 0d 00 25 fc f7 | 04 00 fd f9 05 41 01 fe |6....%..|.....A..|
|00000e10| 12 00 54 f7 07 00 10 fc | d9 01 00 5e f7 07 00 06 |..T.....|...^....|
|00000e20| fd fe 04 00 1e fe 0d 00 | 25 fc f7 05 00 fd f9 05 |........|%.......|
|00000e30| 70 01 fe 1e 00 54 f7 08 | 00 10 fc f7 08 00 fb 0d |p....T..|........|
|00000e40| 00 20 53 4b 49 50 20 46 | 4f 52 20 2e 54 2e 06 fd |. SKIP F|OR .T...|
|00000e50| fe 04 00 1e fe 0d 00 25 | fc f7 06 00 fd f9 05 9c |.......%|........|
|00000e60| 01 fe 1b 00 54 f7 08 00 | 10 fc f7 08 00 fb 0a 00 |....T...|........|
|00000e70| 20 53 54 59 4c 45 20 22 | 42 22 06 fd fe 04 00 1e | STYLE "|B"......|
|00000e80| fe 15 00 54 f7 0a 00 10 | fc 43 f4 0f 00 e0 0e 00 |...T....|.C......|
|00000e90| f8 01 01 cd fd fe 15 00 | 54 f7 0b 00 10 fc 43 f4 |........|T.....C.|
|00000ea0| 0f 00 e0 0e 00 f8 01 02 | cd fd fe 21 00 25 fc f7 |........|...!.%..|
|00000eb0| 0a 00 f8 01 01 0e f0 0d | 00 43 43 f8 01 01 f4 0f |........|.CC.....|
|00000ec0| 00 f6 0e 00 a1 09 fd f9 | 05 05 02 fe 0d 00 54 f7 |........|......T.|
|00000ed0| 0a 00 10 fc f8 01 01 fd | fe 0d 00 54 f7 0b 00 10 |........|...T....|
|00000ee0| fc f8 01 03 fd fe 08 00 | 1b f9 05 1e 02 fe 11 00 |........|........|
|00000ef0| 54 f7 0a 00 10 fc f7 0a | 00 f8 01 01 06 fd fe 04 |T.......|........|
|00000f00| 00 1e fe 0d 00 54 f7 0c | 00 10 fc f7 0a 00 fd fe |.....T..|........|
|00000f10| 16 00 15 f4 0f 00 f6 0e | 00 fc f7 0c 00 fd 07 fc |........|........|
|00000f20| f7 0b 00 fd 16 fe 23 00 | 25 fc 43 d9 0f 00 74 6e |......#.|%.C...tn|
|00000f30| 45 6c 65 6d 65 6e 74 4e | 75 6d 62 65 72 62 d9 01 |ElementN|umberb..|
|00000f40| 00 4e 14 fd f9 05 c3 02 | fe 14 00 54 f7 09 00 10 |.N......|...T....|
|00000f50| fc 43 43 f7 03 00 38 f8 | 01 01 44 fd fe 11 00 25 |.CC...8.|..D....%|
|00000f60| fc f7 09 00 f7 0a 00 0d | fd f9 05 bf 02 fe 1a 00 |........|........|
|00000f70| 25 fc 43 f4 0f 00 e0 0e | 00 f7 09 00 ea 0e f8 01 |%.C.....|........|
|00000f80| 01 0f fd f9 05 ae 02 fe | 07 00 42 fc 2d fd fe 04 |........|..B.-...|
|00000f90| 00 1e fe 0d 00 54 f7 0c | 00 10 fc f7 09 00 fd fe |.....T..|........|
|00000fa0| 04 00 1e fe 04 00 1e fe | 11 00 25 fc f7 0b 00 f8 |........|..%.....|
|00000fb0| 01 01 0e fd f9 05 f2 02 | fe 16 00 54 f4 0f 00 f6 |........|...T....|
|00000fc0| 0e 00 fc f7 0c 00 fd 16 | 10 fc f7 07 00 fd fe 04 |........|........|
|00000fd0| 00 42 fe 04 00 1e fe 1c | 00 54 f4 0f 00 f6 0e 00 |.B......|.T......|
|00000fe0| fc f7 0c 00 fd 07 fc f8 | 01 01 fd 16 10 fc f7 07 |........|........|
|00000ff0| 00 fd fe 1c 00 54 f4 0f | 00 f6 0e 00 fc f7 0c 00 |.....T..|........|
|00001000| fd 07 fc f8 01 02 fd 16 | 10 fc f7 01 00 fd fe 11 |........|........|
|00001010| 00 25 fc f7 0b 00 f8 01 | 03 12 fd f9 05 5b 03 fe |.%......|.....[..|
|00001020| 1c 00 54 f4 0f 00 f6 0e | 00 fc f7 0c 00 fd 07 fc |..T.....|........|
|00001030| f8 01 03 fd 16 10 fc f7 | 08 00 fd fe 04 00 1e fe |........|........|
|00001040| 03 00 55 11 00 08 00 54 | 43 50 52 4f 4d 50 54 0d |..U....T|CPROMPT.|
|00001050| 00 54 43 4f 4e 53 45 4c | 45 43 54 49 4f 4e 09 00 |.TCONSEL|ECTION..|
|00001060| 54 43 43 4c 41 55 53 45 | 53 0f 00 54 4e 45 4c 45 |TCCLAUSE|S..TNELE|
|00001070| 4d 45 4e 54 4e 55 4d 42 | 45 52 06 00 54 4c 4d 41 |MENTNUMB|ER..TLMA|
|00001080| 52 4b 0a 00 54 4c 44 49 | 53 41 42 4c 45 44 06 00 |RK..TLDI|SABLED..|
|00001090| 54 4c 42 4f 4c 44 08 00 | 4c 43 50 52 4f 4d 50 54 |TLBOLD..|LCPROMPT|
|000010a0| 09 00 4c 43 43 4c 41 55 | 53 45 53 0f 00 4c 4e 45 |..LCCLAU|SES..LNE|
|000010b0| 4c 45 4d 45 4e 54 4e 55 | 4d 42 45 52 0b 00 4c 4e |LEMENTNU|MBER..LN|
|000010c0| 4d 45 4e 55 43 4f 55 4e | 54 0e 00 4c 4e 41 52 52 |MENUCOUN|T..LNARR|
|000010d0| 41 59 43 4f 4c 55 4d 4e | 53 07 00 4c 4e 49 4e 44 |AYCOLUMN|S..LNIND|
|000010e0| 45 58 0d 00 4f 53 48 4f | 52 54 43 55 54 4d 45 4e |EX..OSHO|RTCUTMEN|
|000010f0| 55 05 00 41 4d 45 4e 55 | 04 00 54 48 49 53 0a 00 |U..AMENU|..THIS..|
|00001100| 41 44 44 4d 45 4e 55 42 | 41 52 22 00 07 00 af f7 |ADDMENUB|AR".....|
|00001110| 00 00 fe 18 00 99 fc 43 | d9 02 00 5c 2d db db 00 |.......C|...\-...|
|00001120| f7 00 00 f4 01 00 f6 02 | 00 fd fe 03 00 55 03 00 |........|.....U..|
|00001130| 0f 00 54 4e 45 4c 45 4d | 45 4e 54 4e 55 4d 42 45 |..TNELEM|ENTNUMBE|
|00001140| 52 04 00 54 48 49 53 0a | 00 41 44 44 4d 45 4e 55 |R..THIS.|.ADDMENU|
|00001150| 42 41 52 10 00 0d 00 42 | fc 43 f4 00 00 f6 01 00 |BAR....B|.C......|
|00001160| fd fe 03 00 55 02 00 04 | 00 54 48 49 53 0c 00 41 |....U...|.THIS..A|
|00001170| 43 54 49 56 41 54 45 4d | 45 4e 55 1b 00 07 00 af |CTIVATEM|ENU.....|
|00001180| f7 00 00 fe 0a 00 99 f4 | 01 00 f7 02 00 fe 07 00 |........|........|
|00001190| 42 fc 2d fd fe 03 00 55 | 03 00 08 00 54 4f 4f 42 |B.-....U|....TOOB|
|000011a0| 4a 45 43 54 04 00 54 48 | 49 53 09 00 43 4c 45 41 |JECT..TH|IS..CLEA|
|000011b0| 52 4d 45 4e 55 0d 00 0a | 00 99 f4 00 00 f7 01 00 |RMENU...|........|
|000011c0| fe 03 00 55 02 00 04 00 | 54 48 49 53 09 00 43 4c |...U....|THIS..CL|
|000011d0| 45 41 52 4d 45 4e 55 07 | 00 72 65 6c 65 61 73 65 |EARMENU.|.release|
|000011e0| 2c 00 00 00 00 00 ff ff | 0e 00 64 65 61 63 74 69 |,.......|..deacti|
|000011f0| 76 61 74 65 6d 65 6e 75 | 40 00 00 00 00 00 ff ff |vatemenu|@.......|
|00001200| 0c 00 61 63 74 69 76 61 | 74 65 6d 65 6e 75 90 00 |..activa|temenu..|
|00001210| 00 00 00 00 ff ff 09 00 | 63 6c 65 61 72 6d 65 6e |........|clearmen|
|00001220| 75 4b 07 00 00 00 00 ff | ff 07 00 6e 65 77 6d 65 |uK......|...newme|
|00001230| 6e 75 9d 07 00 00 00 00 | ff ff 0a 00 61 64 64 6d |nu......|....addm|
|00001240| 65 6e 75 62 61 72 65 09 | 00 00 00 00 ff ff 10 00 |enubare.|........|
|00001250| 61 64 64 6d 65 6e 75 73 | 65 70 61 72 61 74 6f 72 |addmenus|eparator|
|00001260| 90 0d 00 00 00 00 ff ff | 08 00 73 68 6f 77 6d 65 |........|..showme|
|00001270| 6e 75 d9 0d 00 00 00 00 | ff ff 07 00 73 65 74 6d |nu......|....setm|
|00001280| 65 6e 75 01 0e 00 00 00 | 00 ff ff 04 00 49 6e 69 |enu.....|.....Ini|
|00001290| 74 3b 0e 00 00 00 00 ff | ff 31 00 71 00 33 00 21 |t;......|.1.q.3.!|
|000012a0| 01 41 00 41 00 e1 00 01 | 01 41 00 33 00 71 00 f1 |.A.A....|.A.3.q..|
|000012b0| 01 f1 01 12 01 11 01 e1 | 01 71 00 41 00 51 01 11 |........|.q.A.Q..|
|000012c0| 01 71 00 41 00 e2 03 11 | 02 41 00 21 02 01 01 51 |.q.A....|.A.!...Q|
|000012d0| 01 21 01 b1 00 51 00 f1 | 00 94 01 71 02 41 00 d1 |.!...Q..|...q.A..|
|000012e0| 00 71 01 e1 02 e2 04 11 | 01 41 00 41 00 11 01 b1 |.q......|.A.A....|
|000012f0| 00 71 01 21 01 b1 00 41 | 00 61 02 a1 01 81 00 d1 |.q.!...A|.a......|
|00001300| 00 41 00 f1 00 81 01 81 | 00 f1 03 41 00 d1 00 81 |.A......|...A....|
|00001310| 01 41 00 e1 00 41 00 41 | 00 81 01 d1 02 01 01 d3 |.A...A.A|........|
|00001320| 00 81 02 91 01 21 01 31 | 01 41 00 11 01 41 00 41 |.....!.1|.A...A.A|
|00001330| 00 f1 00 21 01 41 00 01 | 01 71 03 41 00 41 00 b1 |...!.A..|.q.A.A..|
|00001340| 01 41 00 41 00 b1 00 31 | 01 e1 00 41 00 01 01 41 |.A.A...1|...A...A|
|00001350| 00 33 00 01 01 01 01 01 | 01 33 00 71 00 b1 01 52 |.3......|.3.q...R|
|00001360| 02 d1 00 41 00 21 01 21 | 01 21 01 f1 00 01 01 91 |...A.!.!|.!......|
|00001370| 00 41 00 21 01 11 02 d1 | 00 41 01 41 00 01 01 d1 |.A.!....|.A.A....|
|00001380| 00 c1 00 41 00 91 00 33 | 00 f1 01 f1 01 f2 00 71 |...A...3|.......q|
|00001390| 00 41 00 61 02 d1 00 b1 | 00 f1 01 72 03 41 00 41 |.A.a....|...r.A.A|
|000013a0| 00 41 00 d1 00 d1 01 d1 | 00 21 01 41 00 d1 00 e1 |.A......|.!.A....|
|000013b0| 01 41 00 d1 00 b1 01 41 | 00 51 01 51 01 11 02 d1 |.A.....A|.Q.Q....|
|000013c0| 00 d1 00 81 00 11 01 41 | 00 d1 00 61 01 31 02 41 |.......A|...a.1.A|
|000013d0| 01 11 01 a1 01 71 00 41 | 00 d1 00 41 00 41 00 11 |.....q.A|...A.A..|
|000013e0| 01 61 01 41 00 41 00 c1 | 01 c1 01 11 01 c1 01 41 |.a.A.A..|.......A|
|000013f0| 00 33 00 71 00 82 01 33 | 00 d1 00 33 00 71 00 a2 |.3.q...3|...3.q..|
|00001400| 00 71 00 33 00 a1 00 32 | 00 00 00 00 00 00 00 00 |.q.3...2|........|
|00001410| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 13 00 00 |........|........|
|00001420| 00 21 00 00 00 01 00 00 | 00 03 00 00 00 46 00 00 |.!......|.....F..|
|00001430| 00 a4 00 00 00 05 00 00 | 00 0a 00 00 00 c7 00 00 |........|........|
|00001440| 00 7e 0a 00 00 0e 00 00 | 00 5d 00 00 00 9e 0a 00 |.~......|.]......|
|00001450| 00 dc 0a 00 00 6b 00 00 | 00 61 00 00 00 fa 0a 00 |.....k..|.a......|
|00001460| 00 7d 0d 00 00 71 00 00 | 00 78 00 00 00 9e 0d 00 |.}...q..|.x......|
|00001470| 00 19 13 00 00 8b 00 00 | 00 ad 00 00 00 40 13 00 |........|.....@..|
|00001480| 00 88 13 00 00 c4 00 00 | 00 b0 00 00 00 a7 13 00 |........|........|
|00001490| 00 c3 13 00 00 ca 00 00 | 00 b2 00 00 00 e1 13 00 |........|........|
|000014a0| 00 15 14 00 00 ce 00 00 | 00 b6 00 00 00 30 14 00 |........|.....0..|
|000014b0| 00 40 14 00 00 d5 00 00 | 00 00 29 00 00 00 68 11 |.@......|..)...h.|
|000014c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014d0| 00 00 00 00 00 01 00 00 | 00 06 63 75 73 74 6f 6d |........|..custom|
|000014e0| 00 00 00 01 00 00 00 5b | 48 65 69 67 68 74 20 3d |.......[|Height =|
|000014f0| 20 32 32 0d 0a 57 69 64 | 74 68 20 3d 20 32 34 0d | 22..Wid|th = 24.|
|00001500| 0a 63 6f 6e 73 65 6c 65 | 63 74 69 6f 6e 20 3d 20 |.consele|ction = |
|00001510| 0d 0a 63 6d 65 6e 75 20 | 3d 20 0d 0a 6f 68 6f 73 |..cmenu |= ..ohos|
|00001520| 74 20 3d 20 2e 4e 55 4c | 4c 2e 0d 0a 4e 61 6d 65 |t = .NUL|L...Name|
|00001530| 20 3d 20 22 73 68 6f 72 | 74 63 75 74 6d 65 6e 75 | = "shor|tcutmenu|
|00001540| 22 0d 0a 00 00 00 01 00 | 00 14 4b 50 52 4f 43 45 |".......|..KPROCE|
|00001550| 44 55 52 45 20 72 65 6c | 65 61 73 65 0d 0a 52 45 |DURE rel|ease..RE|
|00001560| 4c 45 41 53 45 20 74 68 | 69 73 0d 0a 0d 0a 45 4e |LEASE th|is....EN|
|00001570| 44 50 52 4f 43 0d 0a 50 | 52 4f 43 45 44 55 52 45 |DPROC..P|ROCEDURE|
|00001580| 20 64 65 61 63 74 69 76 | 61 74 65 6d 65 6e 75 0d | deactiv|atemenu.|
|00001590| 0a 49 46 20 45 4d 50 54 | 59 28 74 68 69 73 2e 63 |.IF EMPT|Y(this.c|
|000015a0| 4d 65 6e 75 29 0d 0a 09 | 52 45 54 55 52 4e 0d 0a |Menu)...|RETURN..|
|000015b0| 45 4e 44 49 46 0d 0a 44 | 45 41 43 54 49 56 41 54 |ENDIF..D|EACTIVAT|
|000015c0| 45 20 50 4f 50 55 50 20 | 28 74 68 69 73 2e 63 4d |E POPUP |(this.cM|
|000015d0| 65 6e 75 29 0d 0a 74 68 | 69 73 2e 63 4d 65 6e 75 |enu)..th|is.cMenu|
|000015e0| 3d 22 22 0d 0a 44 4f 45 | 56 45 4e 54 53 0d 0a 0d |=""..DOE|VENTS...|
|000015f0| 0a 45 4e 44 50 52 4f 43 | 0d 0a 50 52 4f 43 45 44 |.ENDPROC|..PROCED|
|00001600| 55 52 45 20 61 63 74 69 | 76 61 74 65 6d 65 6e 75 |URE acti|vatemenu|
|00001610| 0d 0a 4c 50 41 52 41 4d | 45 54 45 52 53 20 74 63 |..LPARAM|ETERS tc|
|00001620| 50 61 72 65 6e 74 4d 65 | 6e 75 0d 0a 4c 4f 43 41 |ParentMe|nu..LOCA|
|00001630| 4c 20 6c 6e 41 72 72 61 | 79 43 6f 6c 75 6d 6e 73 |L lnArra|yColumns|
|00001640| 2c 6c 6c 4d 75 6c 74 69 | 41 72 72 61 79 2c 6c 6e |,llMulti|Array,ln|
|00001650| 42 61 72 2c 6c 6e 53 6b | 69 70 43 6f 75 6e 74 2c |Bar,lnSk|ipCount,|
|00001660| 6c 6e 43 6f 75 6e 74 2c | 6c 6e 4d 52 6f 77 2c 6c |lnCount,|lnMRow,l|
|00001670| 6e 4d 43 6f 6c 0d 0a 4c | 4f 43 41 4c 20 6c 6e 4d |nMCol..L|OCAL lnM|
|00001680| 65 6e 75 43 6f 75 6e 74 | 2c 6c 63 4d 65 6e 75 2c |enuCount|,lcMenu,|
|00001690| 6c 63 4d 65 6e 75 32 2c | 6c 63 4d 65 6e 75 49 74 |lcMenu2,|lcMenuIt|
|000016a0| 65 6d 2c 6c 75 4d 65 6e | 75 53 65 6c 65 63 74 69 |em,luMen|uSelecti|
|000016b0| 6f 6e 2c 6c 6c 53 65 74 | 4d 61 72 6b 2c 6c 63 43 |on,llSet|Mark,lcC|
|000016c0| 6c 61 75 73 65 73 0d 0a | 0d 0a 6c 6e 4d 52 6f 77 |lauses..|..lnMRow|
|000016d0| 3d 4d 41 58 28 4d 52 4f | 57 28 29 2c 30 29 0d 0a |=MAX(MRO|W(),0)..|
|000016e0| 6c 6e 4d 43 6f 6c 3d 4d | 41 58 28 4d 43 4f 4c 28 |lnMCol=M|AX(MCOL(|
|000016f0| 29 2c 30 29 0d 0a 49 46 | 20 54 59 50 45 28 22 74 |),0)..IF| TYPE("t|
|00001700| 68 69 73 2e 61 4d 65 6e | 75 22 29 23 22 43 22 0d |his.aMen|u")#"C".|
|00001710| 0a 09 52 45 54 55 52 4e | 20 2e 46 2e 0d 0a 45 4e |..RETURN| .F...EN|
|00001720| 44 49 46 0d 0a 6c 6e 4d | 65 6e 75 43 6f 75 6e 74 |DIF..lnM|enuCount|
|00001730| 3d 41 4c 45 4e 28 74 68 | 69 73 2e 61 4d 65 6e 75 |=ALEN(th|is.aMenu|
|00001740| 2c 31 29 0d 0a 49 46 20 | 6c 6e 4d 65 6e 75 43 6f |,1)..IF |lnMenuCo|
|00001750| 75 6e 74 3d 30 0d 0a 09 | 52 45 54 55 52 4e 20 2e |unt=0...|RETURN .|
|00001760| 46 2e 0d 0a 45 4e 44 49 | 46 0d 0a 49 46 20 6c 6e |F...ENDI|F..IF ln|
|00001770| 4d 52 6f 77 3c 3d 30 20 | 41 4e 44 20 54 59 50 45 |MRow<=0 |AND TYPE|
|00001780| 28 22 74 68 69 73 66 6f | 72 6d 22 29 3d 3d 22 4f |("thisfo|rm")=="O|
|00001790| 22 20 41 4e 44 20 3b 0d | 0a 09 09 4c 4f 57 45 52 |" AND ;.|...LOWER|
|000017a0| 28 74 68 69 73 66 6f 72 | 6d 2e 42 61 73 65 43 6c |(thisfor|m.BaseCl|
|000017b0| 61 73 73 29 3d 3d 22 74 | 6f 6f 6c 62 61 72 22 0d |ass)=="t|oolbar".|
|000017c0| 0a 09 6c 6e 4d 52 6f 77 | 3d 49 49 46 28 74 68 69 |..lnMRow|=IIF(thi|
|000017d0| 73 66 6f 72 6d 2e 44 6f | 63 6b 50 6f 73 69 74 69 |sform.Do|ckPositi|
|000017e0| 6f 6e 3d 33 2c 53 52 4f | 57 53 28 29 2c 30 29 0d |on=3,SRO|WS(),0).|
|000017f0| 0a 45 4e 44 49 46 0d 0a | 6c 63 4d 65 6e 75 3d 49 |.ENDIF..|lcMenu=I|
|00001800| 49 46 28 45 4d 50 54 59 | 28 74 63 50 61 72 65 6e |IF(EMPTY|(tcParen|
|00001810| 74 4d 65 6e 75 29 2c 53 | 59 53 28 32 30 31 35 29 |tMenu),S|YS(2015)|
|00001820| 2c 41 4c 4c 54 52 49 4d | 28 74 63 50 61 72 65 6e |,ALLTRIM|(tcParen|
|00001830| 74 4d 65 6e 75 29 29 0d | 0a 74 68 69 73 2e 63 4d |tMenu)).|.this.cM|
|00001840| 65 6e 75 3d 6c 63 4d 65 | 6e 75 0d 0a 6c 6e 41 72 |enu=lcMe|nu..lnAr|
|00001850| 72 61 79 43 6f 6c 75 6d | 6e 73 3d 41 4c 45 4e 28 |rayColum|ns=ALEN(|
|00001860| 74 68 69 73 2e 61 4d 65 | 6e 75 2c 32 29 0d 0a 6c |this.aMe|nu,2)..l|
|00001870| 6c 4d 75 6c 74 69 41 72 | 72 61 79 3d 28 6c 6e 41 |lMultiAr|ray=(lnA|
|00001880| 72 72 61 79 43 6f 6c 75 | 6d 6e 73 3e 30 29 0d 0a |rrayColu|mns>0)..|
|00001890| 44 45 41 43 54 49 56 41 | 54 45 20 50 4f 50 55 50 |DEACTIVA|TE POPUP|
|000018a0| 20 28 6c 63 4d 65 6e 75 | 29 0d 0a 43 4c 45 41 52 | (lcMenu|)..CLEAR|
|000018b0| 20 54 59 50 45 41 48 45 | 41 44 0d 0a 49 46 20 45 | TYPEAHE|AD..IF E|
|000018c0| 4d 50 54 59 28 74 63 50 | 61 72 65 6e 74 4d 65 6e |MPTY(tcP|arentMen|
|000018d0| 75 29 0d 0a 09 44 45 46 | 49 4e 45 20 50 4f 50 55 |u)...DEF|INE POPU|
|000018e0| 50 20 28 6c 63 4d 65 6e | 75 29 20 3b 0d 0a 09 09 |P (lcMen|u) ;....|
|000018f0| 09 46 52 4f 4d 20 6c 6e | 4d 52 6f 77 2c 6c 6e 4d |.FROM ln|MRow,lnM|
|00001900| 43 6f 6c 20 3b 0d 0a 09 | 09 09 4d 41 52 47 49 4e |Col ;...|..MARGIN|
|00001910| 20 3b 0d 0a 09 09 09 53 | 48 4f 52 54 43 55 54 0d | ;.....S|HORTCUT.|
|00001920| 0a 09 4f 4e 20 53 45 4c | 45 43 54 49 4f 4e 20 50 |..ON SEL|ECTION P|
|00001930| 4f 50 55 50 20 28 6c 63 | 4d 65 6e 75 29 20 44 45 |OPUP (lc|Menu) DE|
|00001940| 41 43 54 49 56 41 54 45 | 20 4d 45 4e 55 20 28 6c |ACTIVATE| MENU (l|
|00001950| 63 4d 65 6e 75 29 0d 0a | 45 4e 44 49 46 0d 0a 6c |cMenu)..|ENDIF..l|
|00001960| 6e 53 6b 69 70 43 6f 75 | 6e 74 3d 30 0d 0a 46 4f |nSkipCou|nt=0..FO|
|00001970| 52 20 6c 6e 43 6f 75 6e | 74 20 3d 20 31 20 54 4f |R lnCoun|t = 1 TO|
|00001980| 20 6c 6e 4d 65 6e 75 43 | 6f 75 6e 74 0d 0a 09 6c | lnMenuC|ount...l|
|00001990| 63 4d 65 6e 75 49 74 65 | 6d 3d 49 49 46 28 6c 6c |cMenuIte|m=IIF(ll|
|000019a0| 4d 75 6c 74 69 41 72 72 | 61 79 2c 74 68 69 73 2e |MultiArr|ay,this.|
|000019b0| 61 4d 65 6e 75 5b 6c 6e | 43 6f 75 6e 74 2c 31 5d |aMenu[ln|Count,1]|
|000019c0| 2c 74 68 69 73 2e 61 4d | 65 6e 75 5b 6c 6e 43 6f |,this.aM|enu[lnCo|
|000019d0| 75 6e 74 5d 29 0d 0a 09 | 49 46 20 54 59 50 45 28 |unt])...|IF TYPE(|
|000019e0| 22 6c 63 4d 65 6e 75 49 | 74 65 6d 22 29 23 22 43 |"lcMenuI|tem")#"C|
|000019f0| 22 20 4f 52 20 45 4d 50 | 54 59 28 6c 63 4d 65 6e |" OR EMP|TY(lcMen|
|00001a00| 75 49 74 65 6d 29 20 4f | 52 20 3b 0d 0a 09 09 09 |uItem) O|R ;.....|
|00001a10| 28 28 6c 6e 43 6f 75 6e | 74 3d 31 20 4f 52 20 6c |((lnCoun|t=1 OR l|
|00001a20| 6e 43 6f 75 6e 74 3d 6c | 6e 4d 65 6e 75 43 6f 75 |nCount=l|nMenuCou|
|00001a30| 6e 74 29 20 41 4e 44 20 | 41 4c 4c 54 52 49 4d 28 |nt) AND |ALLTRIM(|
|00001a40| 6c 63 4d 65 6e 75 49 74 | 65 6d 29 3d 3d 22 5c 2d |lcMenuIt|em)=="\-|
|00001a50| 22 29 0d 0a 09 09 6c 6e | 53 6b 69 70 43 6f 75 6e |")....ln|SkipCoun|
|00001a60| 74 3d 6c 6e 53 6b 69 70 | 43 6f 75 6e 74 2b 31 0d |t=lnSkip|Count+1.|
|00001a70| 0a 09 09 4c 4f 4f 50 0d | 0a 09 45 4e 44 49 46 0d |...LOOP.|..ENDIF.|
|00001a80| 0a 09 6c 6e 42 61 72 3d | 6c 6e 43 6f 75 6e 74 2d |..lnBar=|lnCount-|
|00001a90| 6c 6e 53 6b 69 70 43 6f | 75 6e 74 0d 0a 09 6c 6c |lnSkipCo|unt...ll|
|00001aa0| 53 65 74 4d 61 72 6b 3d | 2e 46 2e 0d 0a 09 49 46 |SetMark=|.F....IF|
|00001ab0| 20 4c 45 46 54 28 6c 63 | 4d 65 6e 75 49 74 65 6d | LEFT(lc|MenuItem|
|00001ac0| 2c 31 29 3d 3d 22 5e 22 | 0d 0a 09 09 6c 63 4d 65 |,1)=="^"|....lcMe|
|00001ad0| 6e 75 49 74 65 6d 3d 53 | 55 42 53 54 52 28 6c 63 |nuItem=S|UBSTR(lc|
|00001ae0| 4d 65 6e 75 49 74 65 6d | 2c 32 29 0d 0a 09 09 6c |MenuItem|,2)....l|
|00001af0| 6c 53 65 74 4d 61 72 6b | 3d 2e 54 2e 0d 0a 09 45 |lSetMark|=.T....E|
|00001b00| 4e 44 49 46 0d 0a 09 49 | 46 20 6c 6e 41 72 72 61 |NDIF...I|F lnArra|
|00001b10| 79 43 6f 6c 75 6d 6e 73 | 3e 3d 33 20 41 4e 44 20 |yColumns|>=3 AND |
|00001b20| 4e 4f 54 20 45 4d 50 54 | 59 28 74 68 69 73 2e 61 |NOT EMPT|Y(this.a|
|00001b30| 4d 65 6e 75 5b 6c 6e 43 | 6f 75 6e 74 2c 33 5d 29 |Menu[lnC|ount,3])|
|00001b40| 0d 0a 09 09 6c 63 43 6c | 61 75 73 65 73 3d 41 4c |....lcCl|auses=AL|
|00001b50| 4c 54 52 49 4d 28 74 68 | 69 73 2e 61 4d 65 6e 75 |LTRIM(th|is.aMenu|
|00001b60| 5b 6c 6e 43 6f 75 6e 74 | 2c 33 5d 29 0d 0a 09 45 |[lnCount|,3])...E|
|00001b70| 4c 53 45 0d 0a 09 09 6c | 63 43 6c 61 75 73 65 73 |LSE....l|cClauses|
|00001b80| 3d 22 22 0d 0a 09 45 4e | 44 49 46 0d 0a 09 49 46 |=""...EN|DIF...IF|
|00001b90| 20 45 4d 50 54 59 28 6c | 63 43 6c 61 75 73 65 73 | EMPTY(l|cClauses|
|00001ba0| 29 0d 0a 09 09 44 45 46 | 49 4e 45 20 42 41 52 20 |)....DEF|INE BAR |
|00001bb0| 6c 6e 42 61 72 20 4f 46 | 20 28 6c 63 4d 65 6e 75 |lnBar OF| (lcMenu|
|00001bc0| 29 20 50 52 4f 4d 50 54 | 20 28 6c 63 4d 65 6e 75 |) PROMPT| (lcMenu|
|00001bd0| 49 74 65 6d 29 0d 0a 09 | 45 4c 53 45 0d 0a 09 09 |Item)...|ELSE....|
|00001be0| 44 45 46 49 4e 45 20 42 | 41 52 20 6c 6e 42 61 72 |DEFINE B|AR lnBar|
|00001bf0| 20 4f 46 20 28 6c 63 4d | 65 6e 75 29 20 50 52 4f | OF (lcM|enu) PRO|
|00001c00| 4d 50 54 20 28 6c 63 4d | 65 6e 75 49 74 65 6d 29 |MPT (lcM|enuItem)|
|00001c10| 20 26 6c 63 43 6c 61 75 | 73 65 73 0d 0a 09 45 4e | &lcClau|ses...EN|
|00001c20| 44 49 46 0d 0a 09 49 46 | 20 6c 6c 53 65 74 4d 61 |DIF...IF| llSetMa|
|00001c30| 72 6b 0d 0a 09 09 53 45 | 54 20 4d 41 52 4b 20 4f |rk....SE|T MARK O|
|00001c40| 46 20 42 41 52 20 28 6c | 6e 42 61 72 29 20 4f 46 |F BAR (l|nBar) OF|
|00001c50| 20 28 6c 63 4d 65 6e 75 | 29 20 54 4f 20 2e 54 2e | (lcMenu|) TO .T.|
|00001c60| 0d 0a 09 45 4e 44 49 46 | 0d 0a 09 49 46 20 4e 4f |...ENDIF|...IF NO|
|00001c70| 54 20 6c 6c 4d 75 6c 74 | 69 41 72 72 61 79 0d 0a |T llMult|iArray..|
|00001c80| 09 09 4c 4f 4f 50 0d 0a | 09 45 4e 44 49 46 0d 0a |..LOOP..|.ENDIF..|
|00001c90| 09 6c 75 4d 65 6e 75 53 | 65 6c 65 63 74 69 6f 6e |.luMenuS|election|
|00001ca0| 3d 74 68 69 73 2e 61 4d | 65 6e 75 5b 6c 6e 43 6f |=this.aM|enu[lnCo|
|00001cb0| 75 6e 74 2c 32 5d 0d 0a | 09 49 46 20 54 59 50 45 |unt,2]..|.IF TYPE|
|00001cc0| 28 22 6c 75 4d 65 6e 75 | 53 65 6c 65 63 74 69 6f |("luMenu|Selectio|
|00001cd0| 6e 22 29 3d 3d 22 4f 22 | 20 41 4e 44 20 4e 4f 54 |n")=="O"| AND NOT|
|00001ce0| 20 49 53 4e 55 4c 4c 28 | 6c 75 4d 65 6e 75 53 65 | ISNULL(|luMenuSe|
|00001cf0| 6c 65 63 74 69 6f 6e 29 | 0d 0a 09 09 6c 63 4d 65 |lection)|....lcMe|
|00001d00| 6e 75 32 3d 53 59 53 28 | 32 30 31 35 29 0d 0a 09 |nu2=SYS(|2015)...|
|00001d10| 09 44 45 46 49 4e 45 20 | 50 4f 50 55 50 20 28 6c |.DEFINE |POPUP (l|
|00001d20| 63 4d 65 6e 75 32 29 20 | 3b 0d 0a 09 09 09 09 4d |cMenu2) |;......M|
|00001d30| 41 52 47 49 4e 20 3b 0d | 0a 09 09 09 09 53 48 4f |ARGIN ;.|.....SHO|
|00001d40| 52 54 43 55 54 0d 0a 09 | 09 4f 4e 20 53 45 4c 45 |RTCUT...|.ON SELE|
|00001d50| 43 54 49 4f 4e 20 50 4f | 50 55 50 20 28 6c 63 4d |CTION PO|PUP (lcM|
|00001d60| 65 6e 75 32 29 20 44 45 | 41 43 54 49 56 41 54 45 |enu2) DE|ACTIVATE|
|00001d70| 20 4d 45 4e 55 20 28 6c | 63 4d 65 6e 75 32 29 0d | MENU (l|cMenu2).|
|00001d80| 0a 09 09 4f 4e 20 42 41 | 52 20 6c 6e 42 61 72 20 |...ON BA|R lnBar |
|00001d90| 4f 46 20 28 6c 63 4d 65 | 6e 75 29 20 41 43 54 49 |OF (lcMe|nu) ACTI|
|00001da0| 56 41 54 45 20 50 4f 50 | 55 50 20 28 6c 63 4d 65 |VATE POP|UP (lcMe|
|00001db0| 6e 75 32 29 0d 0a 09 09 | 49 46 20 45 4d 50 54 59 |nu2)....|IF EMPTY|
|00001dc0| 28 6c 75 4d 65 6e 75 53 | 65 6c 65 63 74 69 6f 6e |(luMenuS|election|
|00001dd0| 2e 63 4f 6e 53 65 6c 65 | 63 74 69 6f 6e 29 0d 0a |.cOnSele|ction)..|
|00001de0| 09 09 09 6c 75 4d 65 6e | 75 53 65 6c 65 63 74 69 |...luMen|uSelecti|
|00001df0| 6f 6e 2e 63 4f 6e 53 65 | 6c 65 63 74 69 6f 6e 3d |on.cOnSe|lection=|
|00001e00| 74 68 69 73 2e 63 4f 6e | 53 65 6c 65 63 74 69 6f |this.cOn|Selectio|
|00001e10| 6e 0d 0a 09 09 45 4e 44 | 49 46 0d 0a 09 09 6c 75 |n....END|IF....lu|
|00001e20| 4d 65 6e 75 53 65 6c 65 | 63 74 69 6f 6e 2e 41 63 |MenuSele|ction.Ac|
|00001e30| 74 69 76 61 74 65 4d 65 | 6e 75 28 6c 63 4d 65 6e |tivateMe|nu(lcMen|
|00001e40| 75 32 29 0d 0a 09 09 4c | 4f 4f 50 0d 0a 09 45 4e |u2)....L|OOP...EN|
|00001e50| 44 49 46 0d 0a 09 49 46 | 20 45 4d 50 54 59 28 6c |DIF...IF| EMPTY(l|
|00001e60| 75 4d 65 6e 75 53 65 6c | 65 63 74 69 6f 6e 29 0d |uMenuSel|ection).|
|00001e70| 0a 09 09 6c 75 4d 65 6e | 75 53 65 6c 65 63 74 69 |...luMen|uSelecti|
|00001e80| 6f 6e 3d 41 4c 4c 54 52 | 49 4d 28 74 68 69 73 2e |on=ALLTR|IM(this.|
|00001e90| 63 4f 6e 53 65 6c 65 63 | 74 69 6f 6e 29 0d 0a 09 |cOnSelec|tion)...|
|00001ea0| 45 4e 44 49 46 0d 0a 09 | 49 46 20 4e 4f 54 20 45 |ENDIF...|IF NOT E|
|00001eb0| 4d 50 54 59 28 6c 75 4d | 65 6e 75 53 65 6c 65 63 |MPTY(luM|enuSelec|
|00001ec0| 74 69 6f 6e 29 0d 0a 09 | 09 4f 4e 20 53 45 4c 45 |tion)...|.ON SELE|
|00001ed0| 43 54 49 4f 4e 20 42 41 | 52 20 6c 6e 42 61 72 20 |CTION BA|R lnBar |
|00001ee0| 4f 46 20 28 6c 63 4d 65 | 6e 75 29 20 26 6c 75 4d |OF (lcMe|nu) &luM|
|00001ef0| 65 6e 75 53 65 6c 65 63 | 74 69 6f 6e 0d 0a 09 45 |enuSelec|tion...E|
|00001f00| 4e 44 49 46 0d 0a 45 4e | 44 46 4f 52 0d 0a 49 46 |NDIF..EN|DFOR..IF|
|00001f10| 20 6c 6e 53 6b 69 70 43 | 6f 75 6e 74 3e 3d 6c 6e | lnSkipC|ount>=ln|
|00001f20| 4d 65 6e 75 43 6f 75 6e | 74 20 4f 52 20 4e 4f 54 |MenuCoun|t OR NOT|
|00001f30| 20 45 4d 50 54 59 28 74 | 63 50 61 72 65 6e 74 4d | EMPTY(t|cParentM|
|00001f40| 65 6e 75 29 0d 0a 09 52 | 45 54 55 52 4e 0d 0a 45 |enu)...R|ETURN..E|
|00001f50| 4e 44 49 46 0d 0a 41 43 | 54 49 56 41 54 45 20 50 |NDIF..AC|TIVATE P|
|00001f60| 4f 50 55 50 20 28 6c 63 | 4d 65 6e 75 29 0d 0a 49 |OPUP (lc|Menu)..I|
|00001f70| 46 20 4e 4f 54 20 45 4d | 50 54 59 28 74 68 69 73 |F NOT EM|PTY(this|
|00001f80| 2e 63 4d 65 6e 75 29 0d | 0a 09 44 45 41 43 54 49 |.cMenu).|..DEACTI|
|00001f90| 56 41 54 45 20 50 4f 50 | 55 50 20 28 74 68 69 73 |VATE POP|UP (this|
|00001fa0| 2e 63 4d 65 6e 75 29 0d | 0a 45 4e 44 49 46 0d 0a |.cMenu).|.ENDIF..|
|00001fb0| 74 68 69 73 2e 63 4d 65 | 6e 75 3d 22 22 0d 0a 44 |this.cMe|nu=""..D|
|00001fc0| 4f 45 56 45 4e 54 53 0d | 0a 0d 0a 45 4e 44 50 52 |OEVENTS.|...ENDPR|
|00001fd0| 4f 43 0d 0a 50 52 4f 43 | 45 44 55 52 45 20 63 6c |OC..PROC|EDURE cl|
|00001fe0| 65 61 72 6d 65 6e 75 0d | 0a 44 49 4d 45 4e 53 49 |earmenu.|.DIMENSI|
|00001ff0| 4f 4e 20 74 68 69 73 2e | 61 4d 65 6e 75 5b 31 5d |ON this.|aMenu[1]|
|00002000| 0d 0a 74 68 69 73 2e 61 | 4d 65 6e 75 3d 22 22 0d |..this.a|Menu="".|
|00002010| 0a 74 68 69 73 2e 63 4f | 6e 53 65 6c 65 63 74 69 |.this.cO|nSelecti|
|00002020| 6f 6e 3d 22 22 0d 0a 0d | 0a 45 4e 44 50 52 4f 43 |on=""...|.ENDPROC|
|00002030| 0d 0a 50 52 4f 43 45 44 | 55 52 45 20 6e 65 77 6d |..PROCED|URE newm|
|00002040| 65 6e 75 0d 0a 4c 4f 43 | 41 4c 20 74 6f 4f 62 6a |enu..LOC|AL toObj|
|00002050| 65 63 74 0d 0a 4c 4f 43 | 41 4c 20 6f 4e 65 77 4f |ect..LOC|AL oNewO|
|00002060| 62 6a 65 63 74 2c 6c 63 | 43 6c 61 73 73 2c 6c 63 |bject,lc|Class,lc|
|00002070| 43 6c 61 73 73 4c 69 62 | 72 61 72 79 2c 6c 63 42 |ClassLib|rary,lcB|
|00002080| 61 73 65 43 6c 61 73 73 | 2c 6c 63 41 6c 69 61 73 |aseClass|,lcAlias|
|00002090| 2c 6c 6c 41 64 64 4c 69 | 62 72 61 72 79 0d 0a 0d |,llAddLi|brary...|
|000020a0| 0a 49 46 20 54 59 50 45 | 28 22 74 6f 4f 62 6a 65 |.IF TYPE|("toObje|
|000020b0| 63 74 22 29 23 22 4f 22 | 20 4f 52 20 49 53 4e 55 |ct")#"O"| OR ISNU|
|000020c0| 4c 4c 28 74 6f 4f 62 6a | 65 63 74 29 0d 0a 09 74 |LL(toObj|ect)...t|
|000020d0| 6f 4f 62 6a 65 63 74 3d | 74 68 69 73 0d 0a 45 4e |oObject=|this..EN|
|000020e0| 44 49 46 0d 0a 6c 63 43 | 6c 61 73 73 3d 4c 4f 57 |DIF..lcC|lass=LOW|
|000020f0| 45 52 28 74 6f 4f 62 6a | 65 63 74 2e 43 6c 61 73 |ER(toObj|ect.Clas|
|00002100| 73 29 0d 0a 6c 63 43 6c | 61 73 73 4c 69 62 72 61 |s)..lcCl|assLibra|
|00002110| 72 79 3d 4c 4f 57 45 52 | 28 74 6f 4f 62 6a 65 63 |ry=LOWER|(toObjec|
|00002120| 74 2e 43 6c 61 73 73 4c | 69 62 72 61 72 79 29 0d |t.ClassL|ibrary).|
|00002130| 0a 6c 63 42 61 73 65 43 | 6c 61 73 73 3d 4c 4f 57 |.lcBaseC|lass=LOW|
|00002140| 45 52 28 74 6f 4f 62 6a | 65 63 74 2e 42 61 73 65 |ER(toObj|ect.Base|
|00002150| 43 6c 61 73 73 29 0d 0a | 49 46 20 45 4d 50 54 59 |Class)..|IF EMPTY|
|00002160| 28 6c 63 43 6c 61 73 73 | 4c 69 62 72 61 72 79 29 |(lcClass|Library)|
|00002170| 0d 0a 09 6f 4e 65 77 4f | 62 6a 65 63 74 3d 43 52 |...oNewO|bject=CR|
|00002180| 45 41 54 45 4f 42 4a 45 | 43 54 28 6c 63 42 61 73 |EATEOBJE|CT(lcBas|
|00002190| 65 43 6c 61 73 73 29 0d | 0a 09 52 45 54 55 52 4e |eClass).|..RETURN|
|000021a0| 20 6f 4e 65 77 4f 62 6a | 65 63 74 0d 0a 45 4e 44 | oNewObj|ect..END|
|000021b0| 49 46 0d 0a 6c 63 41 6c | 69 61 73 3d 4c 4f 57 45 |IF..lcAl|ias=LOWE|
|000021c0| 52 28 53 59 53 28 32 30 | 31 35 29 29 0d 0a 6c 6c |R(SYS(20|15))..ll|
|000021d0| 41 64 64 4c 69 62 72 61 | 72 79 3d 28 41 54 43 28 |AddLibra|ry=(ATC(|
|000021e0| 6c 63 43 6c 61 73 73 4c | 69 62 72 61 72 79 2c 53 |lcClassL|ibrary,S|
|000021f0| 45 54 28 22 43 4c 41 53 | 53 4c 49 42 22 29 29 3d |ET("CLAS|SLIB"))=|
|00002200| 30 29 0d 0a 49 46 20 6c | 6c 41 64 64 4c 69 62 72 |0)..IF l|lAddLibr|
|00002210| 61 72 79 0d 0a 09 53 45 | 54 20 43 4c 41 53 53 4c |ary...SE|T CLASSL|
|00002220| 49 42 20 54 4f 20 28 6c | 63 43 6c 61 73 73 4c 69 |IB TO (l|cClassLi|
|00002230| 62 72 61 72 79 29 20 41 | 4c 49 41 53 20 28 6c 63 |brary) A|LIAS (lc|
|00002240| 41 6c 69 61 73 29 20 41 | 44 44 49 54 49 56 45 0d |Alias) A|DDITIVE.|
|00002250| 0a 45 4e 44 49 46 0d 0a | 6f 4e 65 77 4f 62 6a 65 |.ENDIF..|oNewObje|
|00002260| 63 74 3d 43 52 45 41 54 | 45 4f 42 4a 45 43 54 28 |ct=CREAT|EOBJECT(|
|00002270| 6c 63 43 6c 61 73 73 29 | 0d 0a 49 46 20 6c 6c 41 |lcClass)|..IF llA|
|00002280| 64 64 4c 69 62 72 61 72 | 79 0d 0a 09 52 45 4c 45 |ddLibrar|y...RELE|
|00002290| 41 53 45 20 43 4c 41 53 | 53 4c 49 42 20 41 4c 49 |ASE CLAS|SLIB ALI|
|000022a0| 41 53 20 28 6c 63 41 6c | 69 61 73 29 0d 0a 45 4e |AS (lcAl|ias)..EN|
|000022b0| 44 49 46 0d 0a 52 45 54 | 55 52 4e 20 6f 4e 65 77 |DIF..RET|URN oNew|
|000022c0| 4f 62 6a 65 63 74 0d 0a | 0d 0a 45 4e 44 50 52 4f |Object..|..ENDPRO|
|000022d0| 43 0d 0a 50 52 4f 43 45 | 44 55 52 45 20 61 64 64 |C..PROCE|DURE add|
|000022e0| 6d 65 6e 75 62 61 72 0d | 0a 4c 50 41 52 41 4d 45 |menubar.|.LPARAME|
|000022f0| 54 45 52 53 20 74 63 50 | 72 6f 6d 70 74 2c 74 63 |TERS tcP|rompt,tc|
|00002300| 4f 6e 53 65 6c 65 63 74 | 69 6f 6e 2c 74 63 43 6c |OnSelect|ion,tcCl|
|00002310| 61 75 73 65 73 2c 74 6e | 45 6c 65 6d 65 6e 74 4e |auses,tn|ElementN|
|00002320| 75 6d 62 65 72 2c 74 6c | 4d 61 72 6b 2c 74 6c 44 |umber,tl|Mark,tlD|
|00002330| 69 73 61 62 6c 65 64 2c | 74 6c 42 6f 6c 64 0d 0a |isabled,|tlBold..|
|00002340| 4c 4f 43 41 4c 20 6c 63 | 50 72 6f 6d 70 74 2c 6c |LOCAL lc|Prompt,l|
|00002350| 63 43 6c 61 75 73 65 73 | 2c 6c 6e 45 6c 65 6d 65 |cClauses|,lnEleme|
|00002360| 6e 74 4e 75 6d 62 65 72 | 2c 6c 6e 4d 65 6e 75 43 |ntNumber|,lnMenuC|
|00002370| 6f 75 6e 74 2c 6c 6e 41 | 72 72 61 79 43 6f 6c 75 |ount,lnA|rrayColu|
|00002380| 6d 6e 73 2c 6c 6e 49 6e | 64 65 78 2c 6f 53 68 6f |mns,lnIn|dex,oSho|
|00002390| 72 74 43 75 74 4d 65 6e | 75 0d 0a 0d 0a 49 46 20 |rtCutMen|u....IF |
|000023a0| 45 4d 50 54 59 28 74 63 | 50 72 6f 6d 70 74 29 0d |EMPTY(tc|Prompt).|
|000023b0| 0a 09 52 45 54 55 52 4e | 20 2e 46 2e 0d 0a 45 4e |..RETURN| .F...EN|
|000023c0| 44 49 46 0d 0a 49 46 20 | 54 59 50 45 28 22 74 63 |DIF..IF |TYPE("tc|
|000023d0| 50 72 6f 6d 70 74 22 29 | 3d 3d 22 4f 22 20 41 4e |Prompt")|=="O" AN|
|000023e0| 44 20 4e 4f 54 20 49 53 | 4e 55 4c 4c 28 74 63 50 |D NOT IS|NULL(tcP|
|000023f0| 72 6f 6d 70 74 29 0d 0a | 09 6f 53 68 6f 72 74 43 |rompt)..|.oShortC|
|00002400| 75 74 4d 65 6e 75 3d 74 | 63 50 72 6f 6d 70 74 0d |utMenu=t|cPrompt.|
|00002410| 0a 09 74 63 50 72 6f 6d | 70 74 3d 2e 4e 55 4c 4c |..tcProm|pt=.NULL|
|00002420| 2e 0d 0a 09 46 4f 52 20 | 6c 6e 49 6e 64 65 78 20 |....FOR |lnIndex |
|00002430| 3d 20 31 20 54 4f 20 41 | 4c 45 4e 28 6f 53 68 6f |= 1 TO A|LEN(oSho|
|00002440| 72 74 43 75 74 4d 65 6e | 75 2e 61 4d 65 6e 75 2c |rtCutMen|u.aMenu,|
|00002450| 31 29 0d 0a 09 09 74 68 | 69 73 2e 41 64 64 4d 65 |1)....th|is.AddMe|
|00002460| 6e 75 42 61 72 28 6f 53 | 68 6f 72 74 43 75 74 4d |nuBar(oS|hortCutM|
|00002470| 65 6e 75 2e 61 4d 65 6e | 75 5b 6c 6e 49 6e 64 65 |enu.aMen|u[lnInde|
|00002480| 78 2c 31 5d 2c 6f 53 68 | 6f 72 74 43 75 74 4d 65 |x,1],oSh|ortCutMe|
|00002490| 6e 75 2e 61 4d 65 6e 75 | 5b 6c 6e 49 6e 64 65 78 |nu.aMenu|[lnIndex|
|000024a0| 2c 32 5d 2c 20 3b 0d 0a | 09 09 09 09 6f 53 68 6f |,2], ;..|....oSho|
|000024b0| 72 74 43 75 74 4d 65 6e | 75 2e 61 4d 65 6e 75 5b |rtCutMen|u.aMenu[|
|000024c0| 6c 6e 49 6e 64 65 78 2c | 33 5d 29 0d 0a 09 45 4e |lnIndex,|3])...EN|
|000024d0| 44 46 4f 52 0d 0a 09 52 | 45 54 55 52 4e 0d 0a 45 |DFOR...R|ETURN..E|
|000024e0| 4e 44 49 46 0d 0a 6c 63 | 50 72 6f 6d 70 74 3d 74 |NDIF..lc|Prompt=t|
|000024f0| 63 50 72 6f 6d 70 74 0d | 0a 6c 63 43 6c 61 75 73 |cPrompt.|.lcClaus|
|00002500| 65 73 3d 49 49 46 28 45 | 4d 50 54 59 28 74 63 43 |es=IIF(E|MPTY(tcC|
|00002510| 6c 61 75 73 65 73 29 2c | 22 22 2c 74 63 43 6c 61 |lauses),|"",tcCla|
|00002520| 75 73 65 73 29 0d 0a 49 | 46 20 74 6c 4d 61 72 6b |uses)..I|F tlMark|
|00002530| 0d 0a 09 6c 63 50 72 6f | 6d 70 74 3d 22 5e 22 2b |...lcPro|mpt="^"+|
|00002540| 6c 63 50 72 6f 6d 70 74 | 0d 0a 45 4e 44 49 46 0d |lcPrompt|..ENDIF.|
|00002550| 0a 49 46 20 74 6c 44 69 | 73 61 62 6c 65 64 0d 0a |.IF tlDi|sabled..|
|00002560| 09 6c 63 43 6c 61 75 73 | 65 73 3d 6c 63 43 6c 61 |.lcClaus|es=lcCla|
|00002570| 75 73 65 73 2b 5b 20 53 | 4b 49 50 20 46 4f 52 20 |uses+[ S|KIP FOR |
|00002580| 2e 54 2e 5d 0d 0a 45 4e | 44 49 46 0d 0a 49 46 20 |.T.]..EN|DIF..IF |
|00002590| 74 6c 42 6f 6c 64 0d 0a | 09 6c 63 43 6c 61 75 73 |tlBold..|.lcClaus|
|000025a0| 65 73 3d 6c 63 43 6c 61 | 75 73 65 73 2b 5b 20 53 |es=lcCla|uses+[ S|
|000025b0| 54 59 4c 45 20 22 42 22 | 5d 0d 0a 45 4e 44 49 46 |TYLE "B"|]..ENDIF|
|000025c0| 0d 0a 6c 6e 4d 65 6e 75 | 43 6f 75 6e 74 3d 41 4c |..lnMenu|Count=AL|
|000025d0| 45 4e 28 74 68 69 73 2e | 61 4d 65 6e 75 2c 31 29 |EN(this.|aMenu,1)|
|000025e0| 0d 0a 6c 6e 41 72 72 61 | 79 43 6f 6c 75 6d 6e 73 |..lnArra|yColumns|
|000025f0| 3d 41 4c 45 4e 28 74 68 | 69 73 2e 61 4d 65 6e 75 |=ALEN(th|is.aMenu|
|00002600| 2c 32 29 0d 0a 49 46 20 | 6c 6e 4d 65 6e 75 43 6f |,2)..IF |lnMenuCo|
|00002610| 75 6e 74 3c 3d 31 20 41 | 4e 44 20 45 4d 50 54 59 |unt<=1 A|ND EMPTY|
|00002620| 28 74 68 69 73 2e 61 4d | 65 6e 75 5b 31 5d 29 0d |(this.aM|enu[1]).|
|00002630| 0a 09 6c 6e 4d 65 6e 75 | 43 6f 75 6e 74 3d 31 0d |..lnMenu|Count=1.|
|00002640| 0a 09 6c 6e 41 72 72 61 | 79 43 6f 6c 75 6d 6e 73 |..lnArra|yColumns|
|00002650| 3d 33 0d 0a 45 4c 53 45 | 0d 0a 09 6c 6e 4d 65 6e |=3..ELSE|...lnMen|
|00002660| 75 43 6f 75 6e 74 3d 6c | 6e 4d 65 6e 75 43 6f 75 |uCount=l|nMenuCou|
|00002670| 6e 74 2b 31 0d 0a 45 4e | 44 49 46 0d 0a 6c 6e 49 |nt+1..EN|DIF..lnI|
|00002680| 6e 64 65 78 3d 6c 6e 4d | 65 6e 75 43 6f 75 6e 74 |ndex=lnM|enuCount|
|00002690| 0d 0a 44 49 4d 45 4e 53 | 49 4f 4e 20 74 68 69 73 |..DIMENS|ION this|
|000026a0| 2e 61 4d 65 6e 75 5b 6c | 6e 49 6e 64 65 78 2c 6c |.aMenu[l|nIndex,l|
|000026b0| 6e 41 72 72 61 79 43 6f | 6c 75 6d 6e 73 5d 0d 0a |nArrayCo|lumns]..|
|000026c0| 49 46 20 54 59 50 45 28 | 22 74 6e 45 6c 65 6d 65 |IF TYPE(|"tnEleme|
|000026d0| 6e 74 4e 75 6d 62 65 72 | 22 29 3d 3d 22 4e 22 0d |ntNumber|")=="N".|
|000026e0| 0a 09 6c 6e 45 6c 65 6d | 65 6e 74 4e 75 6d 62 65 |..lnElem|entNumbe|
|000026f0| 72 3d 4d 41 58 28 49 4e | 54 28 74 6e 45 6c 65 6d |r=MAX(IN|T(tnElem|
|00002700| 65 6e 74 4e 75 6d 62 65 | 72 29 2c 31 29 0d 0a 09 |entNumbe|r),1)...|
|00002710| 49 46 20 6c 6e 45 6c 65 | 6d 65 6e 74 4e 75 6d 62 |IF lnEle|mentNumb|
|00002720| 65 72 3c 6c 6e 4d 65 6e | 75 43 6f 75 6e 74 0d 0a |er<lnMen|uCount..|
|00002730| 09 09 49 46 20 41 49 4e | 53 28 74 68 69 73 2e 61 |..IF AIN|S(this.a|
|00002740| 4d 65 6e 75 2c 6c 6e 45 | 6c 65 6d 65 6e 74 4e 75 |Menu,lnE|lementNu|
|00002750| 6d 62 65 72 29 23 31 0d | 0a 09 09 09 52 45 54 55 |mber)#1.|....RETU|
|00002760| 52 4e 20 2e 46 2e 0d 0a | 09 09 45 4e 44 49 46 0d |RN .F...|..ENDIF.|
|00002770| 0a 09 09 6c 6e 49 6e 64 | 65 78 3d 6c 6e 45 6c 65 |...lnInd|ex=lnEle|
|00002780| 6d 65 6e 74 4e 75 6d 62 | 65 72 0d 0a 09 45 4e 44 |mentNumb|er...END|
|00002790| 49 46 0d 0a 45 4e 44 49 | 46 0d 0a 49 46 20 6c 6e |IF..ENDI|F..IF ln|
|000027a0| 41 72 72 61 79 43 6f 6c | 75 6d 6e 73 3c 3d 31 0d |ArrayCol|umns<=1.|
|000027b0| 0a 09 74 68 69 73 2e 61 | 4d 65 6e 75 5b 6c 6e 49 |..this.a|Menu[lnI|
|000027c0| 6e 64 65 78 5d 3d 6c 63 | 50 72 6f 6d 70 74 0d 0a |ndex]=lc|Prompt..|
|000027d0| 09 52 45 54 55 52 4e 0d | 0a 45 4e 44 49 46 0d 0a |.RETURN.|.ENDIF..|
|000027e0| 74 68 69 73 2e 61 4d 65 | 6e 75 5b 6c 6e 49 6e 64 |this.aMe|nu[lnInd|
|000027f0| 65 78 2c 31 5d 3d 6c 63 | 50 72 6f 6d 70 74 0d 0a |ex,1]=lc|Prompt..|
|00002800| 74 68 69 73 2e 61 4d 65 | 6e 75 5b 6c 6e 49 6e 64 |this.aMe|nu[lnInd|
|00002810| 65 78 2c 32 5d 3d 74 63 | 4f 6e 53 65 6c 65 63 74 |ex,2]=tc|OnSelect|
|00002820| 69 6f 6e 0d 0a 49 46 20 | 6c 6e 41 72 72 61 79 43 |ion..IF |lnArrayC|
|00002830| 6f 6c 75 6d 6e 73 3e 3d | 33 0d 0a 09 74 68 69 73 |olumns>=|3...this|
|00002840| 2e 61 4d 65 6e 75 5b 6c | 6e 49 6e 64 65 78 2c 33 |.aMenu[l|nIndex,3|
|00002850| 5d 3d 6c 63 43 6c 61 75 | 73 65 73 0d 0a 45 4e 44 |]=lcClau|ses..END|
|00002860| 49 46 0d 0a 0d 0a 45 4e | 44 50 52 4f 43 0d 0a 50 |IF....EN|DPROC..P|
|00002870| 52 4f 43 45 44 55 52 45 | 20 61 64 64 6d 65 6e 75 |ROCEDURE| addmenu|
|00002880| 73 65 70 61 72 61 74 6f | 72 0d 0a 4c 50 41 52 41 |separato|r..LPARA|
|00002890| 4d 45 54 45 52 53 20 74 | 6e 45 6c 65 6d 65 6e 74 |METERS t|nElement|
|000028a0| 4e 75 6d 62 65 72 0d 0a | 0d 0a 74 68 69 73 2e 41 |Number..|..this.A|
|000028b0| 64 64 4d 65 6e 75 42 61 | 72 28 22 5c 2d 22 2c 2c |ddMenuBa|r("\-",,|
|000028c0| 2c 74 6e 45 6c 65 6d 65 | 6e 74 4e 75 6d 62 65 72 |,tnEleme|ntNumber|
|000028d0| 29 0d 0a 0d 0a 45 4e 44 | 50 52 4f 43 0d 0a 50 52 |)....END|PROC..PR|
|000028e0| 4f 43 45 44 55 52 45 20 | 73 68 6f 77 6d 65 6e 75 |OCEDURE |showmenu|
|000028f0| 0d 0a 52 45 54 55 52 4e | 20 74 68 69 73 2e 41 63 |..RETURN| this.Ac|
|00002900| 74 69 76 61 74 65 4d 65 | 6e 75 28 29 0d 0a 0d 0a |tivateMe|nu()....|
|00002910| 45 4e 44 50 52 4f 43 0d | 0a 50 52 4f 43 45 44 55 |ENDPROC.|.PROCEDU|
|00002920| 52 45 20 73 65 74 6d 65 | 6e 75 0d 0a 4c 50 41 52 |RE setme|nu..LPAR|
|00002930| 41 4d 45 54 45 52 53 20 | 74 6f 4f 62 6a 65 63 74 |AMETERS |toObject|
|00002940| 0d 0a 0d 0a 74 68 69 73 | 2e 43 6c 65 61 72 4d 65 |....this|.ClearMe|
|00002950| 6e 75 0d 0a 52 45 54 55 | 52 4e 20 2e 46 2e 0d 0a |nu..RETU|RN .F...|
|00002960| 0d 0a 45 4e 44 50 52 4f | 43 0d 0a 50 52 4f 43 45 |..ENDPRO|C..PROCE|
|00002970| 44 55 52 45 20 49 6e 69 | 74 0d 0a 74 68 69 73 2e |DURE Ini|t..this.|
|00002980| 43 6c 65 61 72 4d 65 6e | 75 0d 0a 0d 0a 45 4e 44 |ClearMen|u....END|
|00002990| 50 52 4f 43 0d 0a       |                         |PROC..  |        |
+--------+-------------------------+-------------------------+--------+--------+